200 REM ERROR TRAP ROUTINE
210 PRINT"[147]ERROR DETECTED"
220 REM GET LINE AND MESSAGE
230 GOSUB4000
240 PRINTER$:PRINT"ERROR AT LINE"LN
250 END
3000 DATA 169, 58, 141, 0, 3, 169, 196, 141, 1, 3, 165, 58, 141, 123
3010 DATA 3, 201, 255, 240, 39, 165, 57, 141, 122, 3, 142, 121, 3, 160
3020 DATA 0, 185, 124, 3, 153, 0, 2, 240, 3, 200, 208, 245, 162, 255
3030 DATA 160, 1, 76, 134, 196, 169, 60, 141, 0, 3, 169, 3, 141, 1
3040 DATA 3, 96, 108, 0, 3
3050 RESTORE:FORAD=828TO888:READVA:POKEAD,VA:NEXTAD
3060 T$="GOTO"+STR$(ET)+CHR$(0)
3070 FORAD=1TOLEN(T$):POKE891+AD,ASC(MID$(T$,AD,1)):NEXTAD
3080 SYS875:RETURN
4000 EN=PEEK(889):EA=PEEK(49958+2*EN)+256*PEEK(49959+2*EN):ER$=""
4010 ER$=ER$+CHR$(PEEK(EA)AND127):IFPEEK(EA)<128THENEA=EA+1:GOTO4010
4020 LN=PEEK(890)+256*PEEK(891):RETURN